Inter Org Transfers
Is automatic numbering possible for Inter Org Transfers (Intransit)through Form Personalization, if yes, how can it be attained & if no then can it be done by Customization? and how. Thanks Charoo
Check the metalink note ID
Check the metalink note ID 144171.1
If you dont have the access then below are the details (Source : Oracle Metalink)
1. Navigate to $AU_TOP/resource
2. Generate a .pld from the .pll for CUSTOM.pll
You might use something like this:
f60gen module=CUSTOM.pll Userid=apps/apps module_type=library output_file=CUSTOM.pld parse=NO script=YES compile_all=NO
3. Edit the .pld with a text editor putting in code like noted below to populate the shipment number from a sequence.
4. Create the .pll and .plx from the .pld.
The step of creating the .plx will check for syntax errors.
Correct these and retry the recompile steps recreating the .pll and .plx.
You might use something like this:
a. Create a PLL from PLD
f60gen module=CUSTOM.pld Userid=apps/apps module_type=library output_file=CUSTOM.pll parse=YES script=NO compile_all=YES
b. Create a PLX from PLL
f60gen module=CUSTOM.pll Userid=apps/apps module_type=library output_file=CUSTOM.plx parse=NO script=NO compile_all=YES
5. To test - Logout of the Oracle Applications and log back in.
Navigate to Inventory > Transactions > Inter-organization Transfer
Choose current organization: M3 - Dallas
Choose date: Current date
Choose To Org: M2 - Boston Manufacturing
Choose type: Intransit Shipment
The (Shipment) Number field defaults to the shipment number.
Press Transaction Lines
Enter the transaction details
Save
-- Sequence Example
create sequence jbp_shipment_number start with 1 increment by 1;
-- Code Example
This is the code that I used: CUSTOM.pld link:
package body custom is
/* other custom packages here ... */
form_name varchar2(30) := name_in('system.current_form');
block_name varchar2(30) := name_in('system.cursor_block');
item_name varchar2(90);
theShipmentNumber varchar2(30);
theTransactionType varchar2(30);
BEGIN
IF event_name = 'WHEN-NEW-ITEM-INSTANCE' THEN
IF form_name = 'INVTTMTX' THEN
IF block_name = 'INTERORG_XFER' THEN
item_name := name_in('system.cursor_item');
theShipmentNumber :=name_in('INTERORG_XFER.SHIPMENT_NUMBER');
theTransactionType := name_in('INTERORG_XFER.TRANSACTION_TYPE');
IF theShipmentNumber is null and theTransactionType = 'Intransit Shipment' THEN
IF item_name = 'INTERORG_XFER.TRANSACTION_SOURCE' THEN
DECLARE
jbp_sequence number;
BEGIN
select jbp_shipment_number.nextval into jbp_sequence from dual;
copy('JBP#'||jbp_sequence, 'INTERORG_XFER.SHIPMENT_NUMBER');
END;
ELSIF item_name = 'INTERORG_XFER.SHIPMENT_NUMBER' THEN
DECLARE
jbp_sequence number;
BEGIN
select jbp_shipment_number.nextval into jbp_sequence from dual;
copy('JBP#'||jbp_sequence, 'INTERORG_XFER.SHIPMENT_NUMBER');
END;
END IF;
END IF;
END IF;
END IF;
END IF;
END event;
/* other custom packages here ... */
end custom;